The Macintosh Demo: Applications

home *** CD-ROM | disk | FTP | other *** search
/ The Macintosh Demo: Applications / Apple-MacintoshDemoApplicationsCD-1.0-1992.iso / More Information / QuicKeys / For Programmers Only.sea / Pascal Examples / SampleUI.p < prev next >
MacBinary | 1991-06-22 | 4.9 KB | [TEXT/PJMM]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	ZX81 Sinclair BASIC `(image/sinclairBASIC)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Applause Picture `(image/applausePicture)`	ext	Unsupported
`1%`	dexvert	bsdiff patch `(other/bsdiffPatch)`	ext	Unsupported
`1%`	dexvert	imgdiff patch `(other/imgdiffPatch)`	ext	Unsupported
`1%`	dexvert	MATLAB p-code `(other/matlabPCode)`	ext	Unsupported
`1%`	dexvert	WSUS Patch Storage File `(other/wsusPatchStorageFile)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, Sat Jun 22 02:00:00 1991, modified Sat Jun 22 02:00:00 1991, creator Think Pascal, type ASCII, 2995 bytes "SampleUI.p" , at 0xc33 1754 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[PJMM]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0a 53 61 6d 70 6c 65 | 55 49 2e 70 00 00 00 00 |..Sample|UI.p....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 50 4a 4d | 4d 00 00 00 00 00 00 00 |.TEXTPJM|M.......|
|00000050| 00 00 00 00 00 0b b3 00 | 00 06 da a4 88 97 e0 a4 |........|........|
|00000060| 88 97 e0 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 6e de 00 00 |........|....n...|
|00000080| 28 2a 09 24 57 6f 72 6b | 66 69 6c 65 24 20 2a 29 |(*.$Work|file$ *)|
|00000090| 0d 28 2a 09 24 52 65 76 | 69 73 69 6f 6e 24 20 2a |.(*.$Rev|ision$ *|
|000000a0| 29 0d 0d 7b 09 51 75 69 | 63 4b 65 79 73 20 32 aa |)..{.Qui|cKeys 2.|
|000000b0| 20 73 61 6d 70 6c 65 20 | 65 78 74 65 6e 73 69 6f | sample |extensio|
|000000c0| 6e 20 75 73 65 72 20 69 | 6e 74 65 72 66 61 63 65 |n user i|nterface|
|000000d0| 20 72 6f 75 74 69 6e 65 | 20 7d 0d 0d 7b 09 a9 20 | routine| }..{.. |
|000000e0| 31 39 39 30 20 43 45 20 | 53 6f 66 74 77 61 72 65 |1990 CE |Software|
|000000f0| 2c 20 49 6e 63 2e 20 20 | 41 6c 6c 20 72 69 67 68 |, Inc.  |All righ|
|00000100| 74 73 20 72 65 73 65 72 | 76 65 64 2e 7d 0d 0d 7b |ts reser|ved.}..{|
|00000110| 09 46 6f 72 20 51 75 69 | 63 4b 65 79 73 20 32 20 |.For Qui|cKeys 2 |
|00000120| 45 78 74 65 6e 73 69 6f | 6e 20 53 61 6d 70 6c 65 |Extensio|n Sample|
|00000130| 20 73 6f 75 72 63 65 20 | 63 6f 64 65 20 79 6f 75 | source |code you|
|00000140| 20 68 61 76 65 20 61 20 | 72 6f 79 61 6c 74 79 2d | have a |royalty-|
|00000150| 66 72 65 65 20 72 69 67 | 68 74 20 7d 0d 7b 09 74 |free rig|ht }.{.t|
|00000160| 6f 20 69 6e 63 6c 75 64 | 65 20 6f 62 6a 65 63 74 |o includ|e object|
|00000170| 20 63 6f 64 65 20 64 65 | 72 69 76 65 64 20 66 72 | code de|rived fr|
|00000180| 6f 6d 20 74 68 69 73 20 | 53 61 6d 70 6c 65 20 73 |om this |Sample s|
|00000190| 6f 75 72 63 65 20 63 6f | 64 65 20 69 6e 20 70 72 |ource co|de in pr|
|000001a0| 6f 67 72 61 6d 73 20 7d | 0d 7b 09 74 68 61 74 20 |ograms }|.{.that |
|000001b0| 79 6f 75 20 64 65 76 65 | 6c 6f 70 2e 20 20 59 6f |you deve|lop.  Yo|
|000001c0| 75 20 61 6c 73 6f 20 68 | 61 76 65 20 74 68 65 20 |u also h|ave the |
|000001d0| 72 69 67 68 74 20 74 6f | 20 75 73 65 2c 20 64 69 |right to| use, di|
|000001e0| 73 74 72 69 62 75 74 65 | 2c 20 61 6e 64 20 6c 69 |stribute|, and li|
|000001f0| 63 65 6e 73 65 20 7d 0d | 7b 09 73 75 63 68 20 70 |cense }.|{.such p|
|00000200| 72 6f 67 72 61 6d 73 20 | 74 6f 20 74 68 69 72 64 |rograms |to third|
|00000210| 20 70 61 72 74 69 65 73 | 20 77 69 74 68 6f 75 74 | parties| without|
|00000220| 20 70 61 79 6d 65 6e 74 | 20 6f 66 20 61 6e 79 20 | payment| of any |
|00000230| 66 75 72 74 68 65 72 20 | 6c 69 63 65 6e 73 65 20 |further |license |
|00000240| 66 65 65 73 20 7d 0d 7b | 09 74 6f 20 43 45 20 53 |fees }.{|.to CE S|
|00000250| 6f 66 74 77 61 72 65 2c | 20 49 6e 63 2e 2c 20 73 |oftware,| Inc., s|
|00000260| 6f 20 6c 6f 6e 67 20 61 | 73 20 61 20 63 6f 70 79 |o long a|s a copy|
|00000270| 72 69 67 68 74 20 6e 6f | 74 69 63 65 20 73 75 66 |right no|tice suf|
|00000280| 66 69 63 69 65 6e 74 20 | 74 6f 20 70 72 6f 74 65 |ficient |to prote|
|00000290| 63 74 20 7d 0d 7b 09 79 | 6f 75 72 20 63 6f 70 79 |ct }.{.y|our copy|
|000002a0| 72 69 67 68 74 20 66 6f | 72 20 79 6f 75 72 20 73 |right fo|r your s|
|000002b0| 6f 66 74 77 61 72 65 20 | 69 6e 20 74 68 65 20 55 |oftware |in the U|
|000002c0| 6e 69 74 65 64 20 53 74 | 61 74 65 73 20 6f 72 20 |nited St|ates or |
|000002d0| 61 6e 79 20 6f 74 68 65 | 72 20 63 6f 75 6e 74 72 |any othe|r countr|
|000002e0| 79 3b 20 7d 0d 7b 09 69 | 73 20 69 6e 63 6c 75 64 |y; }.{.i|s includ|
|000002f0| 65 64 20 69 6e 20 74 68 | 65 20 67 72 61 70 68 69 |ed in th|e graphi|
|00000300| 63 20 64 69 73 70 6c 61 | 79 20 6f 66 20 79 6f 75 |c displa|y of you|
|00000310| 72 20 73 6f 66 74 77 61 | 72 65 20 61 6e 64 20 6f |r softwa|re and o|
|00000320| 6e 20 74 68 65 20 6c 61 | 62 65 6c 73 20 7d 0d 7b |n the la|bels }.{|
|00000330| 09 61 66 66 69 78 65 64 | 20 74 6f 20 74 68 65 20 |.affixed| to the |
|00000340| 6d 65 64 69 61 20 6f 6e | 20 77 68 69 63 68 20 79 |media on| which y|
|00000350| 6f 75 72 20 73 6f 66 74 | 77 61 72 65 20 69 73 20 |our soft|ware is |
|00000360| 64 69 73 74 72 69 62 75 | 74 65 64 2e 20 7d 0d 0d |distribu|ted. }..|
|00000370| 7b 09 57 48 45 4e 09 57 | 48 4f 09 09 57 48 41 54 |{.WHEN.W|HO..WHAT|
|00000380| 7d 0d 7b a5 a5 a5 a5 a5 | 7d 0d 7b 09 39 2f 35 09 |}.{.....|}.{.9/5.|
|00000390| 09 6d 6b 67 09 09 63 72 | 65 61 74 65 64 20 76 65 |.mkg..cr|eated ve|
|000003a0| 72 73 69 6f 6e 20 66 6f | 72 20 65 69 74 68 65 72 |rsion fo|r either|
|000003b0| 20 4d 50 57 20 6f 72 20 | 54 68 69 6e 6b 20 50 61 | MPW or |Think Pa|
|000003c0| 73 63 61 6c 7d 0d 7b 09 | 36 2f 31 37 09 6d 6b 67 |scal}.{.|6/17.mkg|
|000003d0| 09 09 73 75 70 70 6f 72 | 74 20 62 61 6c 6c 6f 6f |..suppor|t balloo|
|000003e0| 6e 20 68 65 6c 70 7d 0d | 7b a5 a5 a5 a5 a5 7d 0d |n help}.|{.....}.|
|000003f0| 0d 75 6e 69 74 20 53 61 | 6d 70 6c 65 45 78 74 65 |.unit Sa|mpleExte|
|00000400| 6e 73 69 6f 6e 55 49 3b | 0d 0d 69 6e 74 65 72 66 |nsionUI;|..interf|
|00000410| 61 63 65 0d 0d 09 75 73 | 65 73 0d 7b 24 69 66 63 |ace...us|es.{$ifc|
|00000420| 20 55 4e 44 45 46 49 4e | 45 44 20 54 48 49 4e 4b | UNDEFIN|ED THINK|
|00000430| 5f 50 41 53 43 41 4c 7d | 0d 09 09 4d 65 6d 74 79 |_PASCAL}|...Memty|
|00000440| 70 65 73 2c 20 51 75 69 | 63 6b 64 72 61 77 2c 20 |pes, Qui|ckdraw, |
|00000450| 4f 53 49 6e 74 66 2c 20 | 54 6f 6f 6c 49 6e 74 66 |OSIntf, |ToolIntf|
|00000460| 2c 20 70 61 63 6b 61 67 | 65 73 2c 20 0d 7b 24 65 |, packag|es, .{$e|
|00000470| 6e 64 63 7d 0d 09 09 65 | 78 74 65 6e 73 69 6f 6e |ndc}...e|xtension|
|00000480| 73 2c 20 53 61 6d 70 6c | 65 44 61 74 61 3b 0d 09 |s, Sampl|eData;..|
|00000490| 7b 24 44 2d 7d 0d 20 09 | 7b 24 52 2d 7d 0d 0d 09 |{$D-}. .|{$R-}...|
|000004a0| 66 75 6e 63 74 69 6f 6e | 20 6d 61 69 6e 20 28 77 |function| main (w|
|000004b0| 53 65 6c 65 63 74 6f 72 | 3a 20 69 6e 74 65 67 65 |Selector|: intege|
|000004c0| 72 3b 0d 09 09 09 09 09 | 09 09 09 09 70 44 69 61 |r;......|....pDia|
|000004d0| 6c 6f 67 3a 20 44 69 61 | 6c 6f 67 50 74 72 3b 0d |log: Dia|logPtr;.|
|000004e0| 09 09 09 09 09 09 09 09 | 09 77 48 69 74 49 74 65 |........|.wHitIte|
|000004f0| 6d 3a 20 69 6e 74 65 67 | 65 72 3b 0d 09 09 09 09 |m: integ|er;.....|
|00000500| 09 09 09 09 09 77 46 69 | 72 73 74 49 74 65 6d 3a |.....wFi|rstItem:|
|00000510| 20 69 6e 74 65 67 65 72 | 3b 0d 09 09 09 09 09 09 | integer|;.......|
|00000520| 09 09 09 76 61 72 20 6d | 79 44 61 74 61 3a 20 53 |...var m|yData: S|
|00000530| 61 6d 70 6c 65 44 61 74 | 61 52 65 63 3b 0d 09 09 |ampleDat|aRec;...|
|00000540| 09 09 09 09 09 09 09 6c | 52 65 66 43 6f 6e 3a 20 |.......l|RefCon: |
|00000550| 6c 6f 6e 67 69 6e 74 29 | 3a 20 6c 6f 6e 67 69 6e |longint)|: longin|
|00000560| 74 3b 0d 0d 69 6d 70 6c | 65 6d 65 6e 74 61 74 69 |t;..impl|ementati|
|00000570| 6f 6e 0d 09 63 6f 6e 73 | 74 0d 09 09 64 69 74 6c |on..cons|t...ditl|
|00000580| 57 61 69 74 54 69 6d 65 | 20 3d 20 31 3b 20 7b 20 |WaitTime| = 1; { |
|00000590| 64 69 61 6c 6f 67 20 69 | 74 65 6d 20 6f 66 20 65 |dialog i|tem of e|
|000005a0| 64 69 74 74 65 78 74 20 | 69 74 65 6d 20 7d 0d 0d |dittext |item }..|
|000005b0| 09 66 75 6e 63 74 69 6f | 6e 20 6d 61 69 6e 20 28 |.functio|n main (|
|000005c0| 77 53 65 6c 65 63 74 6f | 72 3a 20 69 6e 74 65 67 |wSelecto|r: integ|
|000005d0| 65 72 3b 0d 09 09 09 09 | 09 09 09 09 09 70 44 69 |er;.....|.....pDi|
|000005e0| 61 6c 6f 67 3a 20 44 69 | 61 6c 6f 67 50 74 72 3b |alog: Di|alogPtr;|
|000005f0| 0d 09 09 09 09 09 09 09 | 09 09 77 48 69 74 49 74 |........|..wHitIt|
|00000600| 65 6d 3a 20 69 6e 74 65 | 67 65 72 3b 0d 09 09 09 |em: inte|ger;....|
|00000610| 09 09 09 09 09 09 77 46 | 69 72 73 74 49 74 65 6d |......wF|irstItem|
|00000620| 3a 20 69 6e 74 65 67 65 | 72 3b 0d 09 09 09 09 09 |: intege|r;......|
|00000630| 09 09 09 09 76 61 72 20 | 6d 79 44 61 74 61 3a 20 |....var |myData: |
|00000640| 53 61 6d 70 6c 65 44 61 | 74 61 52 65 63 3b 0d 09 |SampleDa|taRec;..|
|00000650| 09 09 09 09 09 09 09 09 | 6c 52 65 66 43 6f 6e 3a |........|lRefCon:|
|00000660| 20 6c 6f 6e 67 69 6e 74 | 29 3a 20 6c 6f 6e 67 69 | longint|): longi|
|00000670| 6e 74 3b 0d 09 09 76 61 | 72 0d 09 09 09 73 74 72 |nt;...va|r....str|
|00000680| 57 61 69 74 54 69 6d 65 | 3a 20 73 74 72 32 35 35 |WaitTime|: str255|
|00000690| 3b 0d 09 09 09 77 54 79 | 70 65 3a 20 69 6e 74 65 |;....wTy|pe: inte|
|000006a0| 67 65 72 3b 0d 09 09 09 | 68 49 74 65 6d 3a 20 48 |ger;....|hItem: H|
|000006b0| 61 6e 64 6c 65 3b 0d 09 | 09 09 72 44 69 74 6c 3a |andle;..|..rDitl:|
|000006c0| 20 52 65 63 74 3b 0d 09 | 09 09 68 48 65 6c 70 3a | Rect;..|..hHelp:|
|000006d0| 20 48 61 6e 64 6c 65 3b | 0d 0d 09 62 65 67 69 6e | Handle;|...begin|
|000006e0| 0d 09 09 63 61 73 65 20 | 77 53 65 6c 65 63 74 6f |...case |wSelecto|
|000006f0| 72 20 6f 66 0d 09 09 09 | 6e 65 77 55 49 3a 20 0d |r of....|newUI: .|
|00000700| 09 09 09 09 62 65 67 69 | 6e 0d 09 09 09 7b 20 74 |....begi|n....{ t|
|00000710| 68 65 20 75 73 65 72 20 | 68 61 73 20 6a 75 73 74 |he user |has just|
|00000720| 20 63 72 65 61 74 65 64 | 20 61 20 6e 65 77 20 6b | created| a new k|
|00000730| 65 79 2e 20 20 69 6e 69 | 74 69 61 6c 69 7a 65 20 |ey.  ini|tialize |
|00000740| 69 74 20 7d 0d 09 09 09 | 09 09 6d 79 44 61 74 61 |it }....|..myData|
|00000750| 2e 6c 57 61 69 74 54 69 | 6d 65 20 3a 3d 20 30 3b |.lWaitTi|me := 0;|
|00000760| 0d 09 09 09 09 09 6d 79 | 44 61 74 61 2e 68 64 72 |......my|Data.hdr|
|00000770| 2e 77 4c 65 6e 67 74 68 | 20 3a 3d 20 73 69 7a 65 |.wLength| := size|
|00000780| 6f 66 28 53 61 6d 70 6c | 65 44 61 74 61 52 65 63 |of(Sampl|eDataRec|
|00000790| 29 3b 0d 09 09 09 09 65 | 6e 64 3b 0d 0d 09 09 09 |);.....e|nd;.....|
|000007a0| 69 6e 69 74 55 49 3a 20 | 0d 09 09 09 09 62 65 67 |initUI: |.....beg|
|000007b0| 69 6e 0d 09 09 09 7b 20 | 51 75 69 63 4b 65 79 73 |in....{ |QuicKeys|
|000007c0| 20 32 aa 20 69 73 20 61 | 62 6f 75 74 20 74 6f 20 | 2. is a|bout to |
|000007d0| 64 69 73 70 6c 61 79 20 | 6f 75 72 20 64 69 61 6c |display |our dial|
|000007e0| 6f 67 2e 20 20 70 72 65 | 73 65 74 20 6f 75 72 20 |og.  pre|set our |
|000007f0| 64 69 61 6c 6f 67 20 69 | 74 65 6d 73 20 7d 0d 0d |dialog i|tems }..|
|00000800| 09 09 09 09 09 4e 75 6d | 54 6f 53 74 72 69 6e 67 |.....Num|ToString|
|00000810| 28 4d 79 44 61 74 61 2e | 6c 57 61 69 74 54 69 6d |(MyData.|lWaitTim|
|00000820| 65 2c 20 73 74 72 57 61 | 69 74 54 69 6d 65 29 3b |e, strWa|itTime);|
|00000830| 0d 09 09 09 09 09 47 65 | 74 44 49 74 65 6d 28 70 |......Ge|tDItem(p|
|00000840| 44 69 61 6c 6f 67 2c 20 | 64 69 74 6c 57 61 69 74 |Dialog, |ditlWait|
|00000850| 54 69 6d 65 20 2b 20 77 | 46 69 72 73 74 49 74 65 |Time + w|FirstIte|
|00000860| 6d 2c 20 77 54 79 70 65 | 2c 20 68 49 74 65 6d 2c |m, wType|, hItem,|
|00000870| 20 72 44 69 74 6c 29 3b | 0d 09 09 09 09 09 53 65 | rDitl);|......Se|
|00000880| 74 49 54 65 78 74 28 68 | 49 74 65 6d 2c 20 73 74 |tIText(h|Item, st|
|00000890| 72 57 61 69 74 54 69 6d | 65 29 3b 0d 09 09 09 0d |rWaitTim|e);.....|
|000008a0| 09 09 09 7b 20 66 75 64 | 67 65 20 74 68 65 20 68 |...{ fud|ge the h|
|000008b0| 64 6c 67 20 72 65 73 6f | 75 72 63 65 20 74 6f 20 |dlg reso|urce to |
|000008c0| 73 65 74 20 74 68 65 20 | 6e 75 6d 62 65 72 20 6f |set the |number o|
|000008d0| 66 20 64 69 61 6c 6f 67 | 20 69 74 65 6d 73 20 74 |f dialog| items t|
|000008e0| 6f 20 73 6b 69 70 20 7d | 0d 09 09 09 09 09 68 48 |o skip }|......hH|
|000008f0| 65 6c 70 20 3a 3d 20 47 | 65 74 52 65 73 6f 75 72 |elp := G|etResour|
|00000900| 63 65 28 27 68 64 6c 67 | 27 2c 20 2d 31 34 33 34 |ce('hdlg|', -1434|
|00000910| 38 29 3b 0d 09 09 09 09 | 09 69 66 20 68 48 65 6c |8);.....|.if hHel|
|00000920| 70 20 3c 3e 20 6e 69 6c | 20 74 68 65 6e 0d 09 09 |p <> nil| then...|
|00000930| 09 09 09 09 42 6c 6f 63 | 6b 4d 6f 76 65 28 40 77 |....Bloc|kMove(@w|
|00000940| 46 69 72 73 74 49 74 65 | 6d 2c 20 70 6f 69 6e 74 |FirstIte|m, point|
|00000950| 65 72 28 6f 72 64 34 28 | 68 48 65 6c 70 5e 29 20 |er(ord4(|hHelp^) |
|00000960| 2b 20 32 29 2c 20 32 29 | 3b 0d 09 09 09 09 65 6e |+ 2), 2)|;.....en|
|00000970| 64 3b 0d 0d 09 09 09 68 | 69 74 55 49 3a 20 0d 09 |d;.....h|itUI: ..|
|00000980| 09 09 09 62 65 67 69 6e | 0d 09 09 09 7b 20 74 68 |...begin|....{ th|
|00000990| 65 20 75 73 65 72 20 63 | 6c 69 63 6b 65 64 20 6f |e user c|licked o|
|000009a0| 72 20 74 79 70 65 64 20 | 69 6e 74 6f 20 6f 6e 65 |r typed |into one|
|000009b0| 20 6f 66 20 6f 75 72 20 | 69 74 65 6d 73 20 7d 0d | of our |items }.|
|000009c0| 09 09 09 7b 20 20 49 6e | 20 74 68 69 73 20 65 78 |...{  In| this ex|
|000009d0| 61 6d 70 6c 65 2c 20 74 | 68 65 72 65 20 69 73 20 |ample, t|here is |
|000009e0| 6e 6f 74 68 69 6e 67 20 | 74 6f 20 64 6f 20 7d 0d |nothing |to do }.|
|000009f0| 09 09 09 09 65 6e 64 3b | 0d 0d 09 09 09 64 6f 6e |....end;|.....don|
|00000a00| 65 55 49 3a 0d 09 09 09 | 7b 20 54 68 65 20 75 73 |eUI:....|{ The us|
|00000a10| 65 72 20 68 61 73 20 63 | 6c 69 63 6b 65 64 20 6f |er has c|licked o|
|00000a20| 6b 20 6f 72 20 63 61 6e | 63 65 6c 2e 20 7d 0d 09 |k or can|cel. }..|
|00000a30| 09 09 7b 20 43 6f 6c 6c | 65 63 74 20 69 74 65 6d |..{ Coll|ect item|
|00000a40| 73 20 66 72 6f 6d 20 64 | 69 61 6c 6f 67 20 61 6e |s from d|ialog an|
|00000a50| 64 20 70 6c 61 63 65 20 | 69 6e 20 6b 65 79 20 64 |d place |in key d|
|00000a60| 61 74 61 2e 7d 0d 0d 09 | 09 09 7b 20 49 6d 70 6f |ata.}...|..{ Impo|
|00000a70| 72 74 61 6e 74 20 6e 6f | 74 65 3a 20 20 53 69 6e |rtant no|te:  Sin|
|00000a80| 63 65 20 51 75 69 63 4b | 65 79 73 20 67 69 76 65 |ce QuicK|eys give|
|00000a90| 73 20 75 73 20 61 20 63 | 6f 70 79 20 6f 66 20 74 |s us a c|opy of t|
|00000aa0| 68 65 20 6b 65 79 20 64 | 61 74 61 20 74 6f 20 7d |he key d|ata to }|
|00000ab0| 0d 09 09 09 7b 20 77 6f | 72 6b 20 6f 6e 2c 20 77 |....{ wo|rk on, w|
|00000ac0| 65 20 64 6f 6e 27 74 20 | 63 61 72 65 20 77 68 65 |e don't |care whe|
|00000ad0| 74 68 65 72 20 75 73 65 | 72 20 68 69 74 20 6f 6b |ther use|r hit ok|
|00000ae0| 20 6f 72 20 63 61 6e 63 | 65 6c 2e 20 20 51 75 69 | or canc|el.  Qui|
|00000af0| 63 4b 65 79 73 20 77 69 | 6c 6c 20 7d 0d 09 09 09 |cKeys wi|ll }....|
|00000b00| 7b 20 64 69 73 63 61 72 | 64 20 74 68 65 20 63 6f |{ discar|d the co|
|00000b10| 70 79 20 69 66 20 74 68 | 65 20 75 73 65 72 20 68 |py if th|e user h|
|00000b20| 69 74 20 63 61 6e 63 65 | 6c 20 6f 72 20 75 70 64 |it cance|l or upd|
|00000b30| 61 74 65 20 74 68 65 20 | 61 63 74 75 61 6c 20 6b |ate the |actual k|
|00000b40| 65 79 20 64 61 74 61 20 | 7d 0d 09 09 09 7b 20 69 |ey data |}....{ i|
|00000b50| 66 20 74 68 65 20 75 73 | 65 72 20 68 69 74 20 6f |f the us|er hit o|
|00000b60| 6b 2e 20 7d 0d 09 09 09 | 09 62 65 67 69 6e 0d 09 |k. }....|.begin..|
|00000b70| 09 09 09 09 47 65 74 44 | 49 74 65 6d 28 70 44 69 |....GetD|Item(pDi|
|00000b80| 61 6c 6f 67 2c 20 64 69 | 74 6c 57 61 69 74 54 69 |alog, di|tlWaitTi|
|00000b90| 6d 65 20 2b 20 77 46 69 | 72 73 74 49 74 65 6d 2c |me + wFi|rstItem,|
|00000ba0| 20 77 54 79 70 65 2c 20 | 68 49 74 65 6d 2c 20 72 | wType, |hItem, r|
|00000bb0| 44 69 74 6c 29 3b 0d 09 | 09 09 09 09 47 65 74 49 |Ditl);..|....GetI|
|00000bc0| 54 65 78 74 28 68 49 74 | 65 6d 2c 20 73 74 72 57 |Text(hIt|em, strW|
|00000bd0| 61 69 74 54 69 6d 65 29 | 3b 0d 09 09 09 09 09 53 |aitTime)|;......S|
|00000be0| 74 72 69 6e 67 54 6f 4e | 75 6d 28 73 74 72 57 61 |tringToN|um(strWa|
|00000bf0| 69 74 54 69 6d 65 2c 20 | 6d 79 44 61 74 61 2e 6c |itTime, |myData.l|
|00000c00| 57 61 69 74 54 69 6d 65 | 29 0d 09 09 09 09 65 6e |WaitTime|).....en|
|00000c10| 64 3b 0d 09 09 65 6e 64 | 3b 0d 0d 09 09 6d 61 69 |d;...end|;....mai|
|00000c20| 6e 20 3a 3d 20 30 3b 0d | 09 65 6e 64 3b 0d 0d 65 |n := 0;.|.end;..e|
|00000c30| 6e 64 2e 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |nd......|........|
|00000c40| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000c80| 00 00 01 00 00 00 06 2d | 00 00 05 2d 00 00 00 ad |.......-|...-....|
|00000c90| 00 00 06 b1 07 51 41 2e | 48 65 6c 70 02 00 00 00 |.....QA.|Help....|
|00000ca0| 51 4d 48 50 43 45 51 41 | 01 00 00 00 00 40 00 00 |QMHPCEQA|.....@..|
|00000cb0| 0a 53 61 6d 70 6c 65 55 | 49 2e 70 6c 02 00 00 00 |.SampleU|I.pl....|
|00000cc0| 54 45 4d 50 44 53 45 41 | 00 00 00 00 00 00 00 00 |TEMPDSEA|........|
|00000cd0| 00 00 54 45 4d 50 44 53 | 45 41 00 00 00 00 00 00 |..TEMPDS|EA......|
|00000ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000cf0| 00 00 a6 4a 8c 21 00 00 | 0b b3 00 00 06 da 00 00 |...J.!..|........|
|00000d00| 00 00 0e 00 00 00 06 b1 | 08 51 41 2e 5a 6f 6e 65 |........|.QA.Zone|
|00000d10| 73 2e 02 00 00 00 51 4d | 44 46 43 45 51 41 01 00 |s.....QM|DFCEQA..|
|00000d20| 00 c0 00 00 00 00 00 00 | 06 c5 00 00 00 00 00 22 |........|......."|
|00000d30| 00 00 06 00 00 00 00 00 | 00 00 00 00 00 00 a2 79 |........|.......y|
|00000d40| ba 31 a2 79 bc 94 00 00 | 00 00 00 00 00 00 00 00 |.1.y....|........|
|00000d50| 00 00 00 00 00 00 00 00 | 00 00 00 00 49 7d 00 01 |........|....I}..|
|00000d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d70| 00 00 00 00 00 00 00 00 | 18 00 00 00 06 b1 12 51 |........|.......Q|
|00000d80| 00 00 00 07 03 e0 41 59 | 0d 76 9f 00 00 00 48 00 |......AY|.v....H.|
|00000d90| 09 4d 6f 6e 61 63 6f 00 | 64 75 72 65 20 53 65 74 |.Monaco.|dure Set|
|00000da0| 41 6c 6c 42 75 74 74 6f | 6e 73 3b 0d 20 20 20 20 |AllButto|ns;.    |
|00000db0| 76 00 06 00 04 00 60 00 | 1c 01 e3 02 61 00 60 00 |v.....`.|....a.`.|
|00000dc0| 1c 01 e3 02 61 a4 83 12 | 2a 00 00 06 58 00 00 06 |....a...|*...X...|
|00000dd0| 58 00 00 07 7f 01 00 00 | 00 00 1e 00 60 00 1c 01 |X.......|....`...|
|00000de0| e3 02 61 00 60 00 1c 01 | e3 02 61 00 00 07 7f 00 |..a.`...|..a.....|
|00000df0| 00 00 00 00 00 00 00 00 | 00 00 00 00 6a 0e 50 61 |........|....j.Pa|
|00000e00| 73 63 61 6c 20 53 79 6d | 62 6f 6c 73 00 11 53 41 |scal Sym|bols..SA|
|00000e10| 4d 50 4c 45 45 58 54 45 | 4e 53 49 4f 4e 55 49 0a |MPLEEXTE|NSIONUI.|
|00000e20| 53 41 4d 50 4c 45 44 41 | 54 41 41 0a 45 58 54 45 |SAMPLEDA|TAA.EXTE|
|00000e30| 4e 53 49 4f 4e 53 41 08 | 50 41 43 4b 41 47 45 53 |NSIONSA.|PACKAGES|
|00000e40| 57 08 54 4f 4f 4c 49 4e | 54 46 57 06 4f 53 49 4e |W.TOOLIN|TFW.OSIN|
|00000e50| 54 46 52 09 51 55 49 43 | 4b 44 52 41 57 08 4d 45 |TFR.QUIC|KDRAW.ME|
|00000e60| 4d 54 59 50 45 53 45 00 | 00 03 5c 00 00 11 53 41 |MTYPESE.|..\...SA|
|00000e70| 4d 50 4c 45 45 58 54 45 | 4e 53 49 4f 4e 55 49 00 |MPLEEXTE|NSIONUI.|
|00000e80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ea0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 51 75 65 |........|.....Que|
|00000eb0| 72 ff ff ff ff 01 00 00 | 70 00 00 00 00 00 00 00 |r.......|p.......|
|00000ec0| 00 01 00 06 68 00 00 00 | 00 01 00 03 5c 00 00 00 |....h...|....\...|
|00000ed0| 00 a4 83 12 47 00 00 00 | 00 08 25 00 d5 04 4d 41 |....G...|..%...MA|
|00000ee0| 49 4e 54 49 4f 4e 54 41 | 41 4c 49 4f 4e 55 49 00 |INTIONTA|ALIONUI.|
|00000ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 ff |........|........|
|00000f20| 82 ff ff ff ff ff ff ff | ff ff ff ff ff 00 00 00 |........|........|
|00000f30| 00 01 00 05 01 00 01 01 | 00 00 e0 ff ff 00 0e 00 |........|........|
|00000f40| 1a ff ff 00 00 00 00 00 | 00 00 00 00 a7 09 57 53 |........|......WS|
|00000f50| 45 4c 45 43 54 4f 52 41 | 41 4c 49 4f 4e 55 49 00 |ELECTORA|ALIONUI.|
|00000f60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 1d 46 ff |........|......F.|
|00000f90| 83 01 00 02 1e 01 00 01 | 4a 01 00 01 4a 00 00 00 |........|J...J...|
|00000fa0| 10 01 00 02 00 0e ad ff | ff 00 02 00 00 00 18 ff |........|........|
|00000fb0| 76 48 6e ff 90 00 3c 07 | 50 44 49 41 4c 4f 47 4f |vHn...<.|PDIALOGO|
|00000fc0| 52 41 41 4c 49 4f 4e 55 | 49 00 00 00 00 00 00 00 |RAALIONU|I.......|
|00000fd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ff0| 00 00 00 00 00 00 00 48 | 7a 06 d2 01 00 01 b4 01 |.......H|z.......|
|00001000| 00 02 88 01 00 01 b4 07 | 00 4a 94 01 00 02 00 00 |........|.J......|
|00001010| d9 ff ff 00 02 00 00 00 | 14 48 6e ff aa 42 67 00 |........|.Hn..Bg.|
|00001020| ad 08 57 48 49 54 49 54 | 45 4d 52 41 41 4c 49 4f |..WHITIT|EMRAALIO|
|00001030| 4e 55 49 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |NUI.....|........|
|00001040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001060| 00 ff 76 70 05 ff ff ff | ff ff ff ff ff 01 00 02 |..vp....|........|
|00001070| 1e 00 00 00 10 01 00 02 | 00 09 72 ff ff 00 02 00 |........|..r.....|
|00001080| 00 00 12 67 0e 53 40 67 | 0e 00 40 0a 57 46 49 52 |...g.S@g|..@.WFIR|
|00001090| 53 54 49 54 45 4d 41 4c | 49 4f 4e 55 49 00 00 00 |STITEMAL|IONUI...|
|000010a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000010c0| 00 00 00 00 00 00 00 00 | 00 00 00 ff aa 3f 3c ff |........|.....?<.|
|000010d0| ff ff ff ff ff ff ff 01 | 00 02 88 00 00 00 10 01 |........|........|
|000010e0| 00 02 00 00 4f ff ff 00 | 02 00 00 00 10 e6 49 44 |....O...|......ID|
|000010f0| 41 01 30 00 ff 06 4d 59 | 44 41 54 41 52 54 45 4d |A.0...MY|DATARTEM|
|00001100| 41 4c 49 4f 4e 55 49 00 | 00 00 00 00 00 00 00 00 |ALIONUI.|........|
|00001110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001120| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001130| 00 00 00 00 00 3f 3c 4e | ad 01 00 02 f2 ff ff ff |.....?<N|........|
|00001140| ff 01 00 02 f2 02 00 01 | 8a 01 00 02 01 0d 94 ff |........|........|
|00001150| ff 00 02 00 00 00 0c 04 | 40 00 18 67 18 00 40 07 |........|@..g..@.|
|00001160| 4c 52 45 46 43 4f 4e 41 | 54 41 52 45 43 4f 4e 55 |LREFCONA|TARECONU|
|00001170| 49 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |I.......|........|
|00001180| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001190| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 07 |........|........|
|000011a0| e2 78 02 ff ff ff ff ff | ff ff ff ff ff ff ff 00 |.x......|........|
|000011b0| 00 00 00 01 00 02 00 07 | e2 ff ff 00 02 00 00 00 |........|........|
|000011c0| 08 42 6d ed 94 4a 6d 00 | 00 00 3e 00 0f 0c 54 48 |.Bm..Jm.|..>...TH|
|000011d0| 49 4e 4b 5f 50 41 53 43 | 41 4c 0c 2f 10 20 5f a0 |INK_PASC|AL./. _.|
|000011e0| 2a 20 6e 00 08 2f 10 20 | 5f a0 2a 20 6e 00 0c 2f |* n../. |_.* n../|
|000011f0| 10 20 5f a0 23 20 6e 00 | 08 2f 10 20 5f a0 23 20 |. _.# n.|./. _.# |
|00001200| 6e 00 0c 70 00 20 80 20 | 6e 00 00 00 a0 a3 cd d5 |n..p. . |n.......|
|00001210| 76 a4 83 12 50 a4 83 12 | 2a 00 00 ff ff ff ff 4a |v...P...|*......J|
|00001220| 85 08 08 48 00 00 00 00 | 01 01 00 00 00 00 08 00 |...H....|........|
|00001230| 1d 3d 52 00 1d 72 02 00 | 06 00 01 00 06 00 1f fa |.=R..r..|........|
|00001240| e0 00 1f fe 3c 00 0e a4 | 83 12 47 00 00 00 00 00 |....<...|..G.....|
|00001250| 00 00 00 00 01 a4 83 12 | 50 00 00 00 00 00 00 00 |........|P.......|
|00001260| 00 00 00 a4 83 12 4f 00 | 00 00 00 00 00 00 00 00 |......O.|........|
|00001270| 00 a4 83 12 4b 00 00 00 | 00 00 00 00 00 00 00 a4 |....K...|........|
|00001280| 7e 59 45 00 00 00 00 00 | 00 00 00 00 00 a4 7e 59 |~YE.....|......~Y|
|00001290| 3e 00 00 00 00 00 00 00 | 00 00 01 a4 7e 59 3c 00 |>.......|....~Y<.|
|000012a0| 00 00 00 00 00 00 00 00 | 00 a4 7e 59 3b 00 00 01 |........|..~Y;...|
|000012b0| 00 00 00 06 2d 00 00 05 | 2d 00 00 00 ad 00 16 c7 |....-...|-.......|
|000012c0| 10 10 2a 00 00 00 1c 00 | 82 00 01 75 6e 69 74 00 |..*.....|...unit.|
|000012d0| 04 00 12 4d 50 53 52 00 | 01 00 4e 00 02 00 00 00 |...MPSR.|..N.....|
|000012e0| 00 00 00 00 00 00 00 00 | 07 00 09 00 00 00 79 00 |........|......y.|
|000012f0| 00 00 00 00 03 00 13 00 | 00 00 e7 00 00 00 00 00 |........|........|
|00001300| 01 00 1d 00 00 04 47 00 | 00 00 00 00 00 00 24 00 |......G.|......$.|
|00001310| 00 04 89 00 00 00 00 03 | ed ff ff 00 00 00 0b 00 |........|........|
|00001320| 00 00 00 03 f0 ff ff 00 | 00 00 57 00 00 00 00 08 |........|..W.....|
|00001330| 50 61 63 6b 53 79 6d 73 | 09 55 6e 69 74 4e 61 6d |PackSyms|.UnitNam|
|00001340| 65 73 09 53 79 6d 62 54 | 61 62 6c 65 06 55 6e 64 |es.SymbT|able.Und|
|00001350| 65 66 73 06 48 65 61 64 | 65 72 00 00 00 00 00 00 |efs.Head|er......|
|00001360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001370| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+